home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / Aldus FreeHand / Aldus FreeHand 4.0 TV / Aldus FreeHand 4.0 TV.rsrc / Post_1256 < prev    next >
Encoding:
Text File  |  1994-01-25  |  630 b   |  30 lines
  1. save
  2. /demotextsize 14 def
  3. /demoheight demotextsize 8 add def
  4. /demoinset 72 def
  5. /demotext (^o) def
  6. /dodemotext {
  7.  gsave
  8.  /Times-Italic findfont demotextsize scalefont setfont
  9.  1 setgray
  10.  left bottom width height rectfill 
  11.  0 setgray     
  12.  left demoinset add bottom demoheight demotextsize sub 2 div add moveto
  13.  width demoinset 2 mul sub
  14.  demotext stringwidth pop sub
  15.  demotext length div
  16.  0 demotext ashow
  17.  grestore
  18. } bdf
  19. clpr storerect 
  20. /height demoheight def
  21. /top top 36 sub def
  22. /bottom top height sub def
  23. dodemotext
  24. clpr storerect 
  25. /height demoheight def
  26. /bottom bottom 36 add def
  27. /top bottom height add def
  28. dodemotext
  29. restore